My Neighborhood/My Neighborhood.iso/mac/MacFiles/ExitDry.Dxr/00036.ls

Text File | 1997-11-21 | 3.6 KB | 99 lines

on exitFrame
  global ListNum, NewRewardList, snapH, snapV, curLoc, RewPetStore, RewMovies, RewGrocery, RewDrugStore, RewDryCleaners, RewFarm, RewZoo, RewGrandMa, RewSchool, RewPark, RewPolice, RewAirport
  if the movieName contains "Zoo" then
    set curLoc to "Zoo"
    set ListNum to getOne(NewCity, "Zoo")
    set NewRewardList to RewZoo
    set snapH to 284
    set snapV to 256
  else
    if the movieName contains "Farm" then
      set curLoc to "Farm"
      set ListNum to getOne(NewCity, "Farm")
      set NewRewardList to RewFarm
      set snapH to 139
      set snapV to 256
    else
      if the movieName contains "Dry" then
        set curLoc to "DryCleaners"
        set ListNum to getOne(NewCity, "DryCleaners")
        set NewRewardList to RewDryCleaners
        set snapH to 469
        set snapV to 374
      else
        if the movieName contains "DS" then
          set curLoc to "DrugStore"
          set ListNum to getOne(NewCity, "DrugStore")
          set NewRewardList to RewDrugStore
          set snapH to 139
          set snapV to 256
        else
          if the movieName contains "Groc" then
            set curLoc to "Grocery"
            set ListNum to getOne(NewCity, "Grocery")
            set NewRewardList to RewGrocery
            set snapH to 469
            set snapV to 324
          else
            if the movieName contains "Air" then
              set curLoc to "Airport"
              set ListNum to getOne(NewCity, "Airport")
              set NewRewardList to RewAirport
              set snapH to 139
              set snapV to 256
            else
              if the movieName contains "Park" then
                set curLoc to "Park"
                set ListNum to getOne(NewCity, "Park")
                set NewRewardList to RewPark
                set snapH to 139
                set snapV to 256
              else
                if the movieName contains "GMA" then
                  set curLoc to "Grandma"
                  set ListNum to getOne(NewCity, "Grandma")
                  set NewRewardList to RewGrandMa
                  set snapH to 139
                  set snapV to 256
                else
                  if the movieName contains "SCH" then
                    set curLoc to "School"
                    set ListNum to getOne(NewCity, "School")
                    set NewRewardList to RewSchool
                    set snapH to 139
                    set snapV to 256
                  else
                    if the movieName contains "Pet" then
                      set curLoc to "PetStore"
                      set ListNum to getOne(NewCity, "PetStore")
                      set NewRewardList to RewPetStore
                      set snapH to 139
                      set snapV to 256
                    else
                      if the movieName contains "Movi" then
                        set curLoc to "Movies"
                        set ListNum to getOne(NewCity, "Movies")
                        set NewRewardList to RewMovies
                        set snapH to 139
                        set snapV to 256
                      else
                        if the movieName contains "Cop" then
                          set curLoc to "Police"
                          set ListNum to getOne(NewCity, "Police")
                          set NewRewardList to RewPolice
                          set snapH to 139
                          set snapV to 256
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end